program ej15a; { Ejemplo 15a de CpcPaChi }

var
  fila: byte;

begin
  CpcMode(2);
  CpcInk(1,WHITE);
  fila := 3;
  locate(2,fila);
  writeString('Hola Mundo');
end.

